home *** CD-ROM | disk | FTP | other *** search
- Program Example50;
-
- { Program to demonstrate the Read(Ln) function. }
-
- Var S : String;
- C : Char;
- F : File of char;
-
- begin
- Assign (F,'ex50.pp');
- Reset (F);
- C:='A';
- Writeln ('The characters before the first space in ex50.pp are : ');
- While not Eof(f) and (C<>' ') do
- Begin
- Read (F,C);
- Write (C);
- end;
- Writeln;
- Close (F);
- Writeln ('Type some words. An empty line ends the program.');
- repeat
- Readln (S);
- until S='';
- end.
-